home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tegl6b.zip / INTROPAK.EXE / lha / TEGLEDIT.DOC < prev    next >
Text File  |  1991-08-16  |  2KB  |  43 lines
  1. {-----------------------------------------------------------------------------}
  2. {                          TEGL Windows ToolKit II                            }
  3. {                 Copyright (C) 1990, 1991 TEGL Systems Corporation           }
  4. {                           All Rights Reserved.                              }
  5. {-----------------------------------------------------------------------------}
  6. {$I switches.inc}
  7.  
  8. Unit tegledit;
  9.  
  10. INTERFACE
  11.  
  12. uses crt,                       {keypress}
  13.      errorlog,                  {error messages}
  14.      virtmem,                   {heap for local data}
  15.      ipstacks,                  {image partial for edit string background}
  16.      teglmain,                  {wait for user release}
  17.      teglintr,                  {text cursor routines}
  18.      teglunit,                  {define mouse click area}
  19.      fastgrph;                  {outtgtextxy}
  20.  
  21. type
  22.      acceptch  = function(ch:char):boolean;
  23.      formatstr = function(var txtstr:string):boolean;
  24.  
  25. procedure DefineStrEditEvent(fs:imagestkptr; x,y,x1,y1,maxlen,color:word;
  26.                        font:pointer; prop:boolean; var txtstr:string;
  27.                        userch:acceptch; formenter,formexit:formatstr; formevent:callproc);
  28.  
  29. procedure SetStrEdit(fs:ImageStkPtr; ms: MsClickPtr; ncpos:word);
  30. Procedure DropStrEditEvents(fs:imagestkptr);
  31.  
  32.  
  33. function AllChars(ch:char):boolean;
  34. function AlphaOnly(ch:char):boolean;
  35. function NumbersOnly(ch:char):boolean;
  36. function AlphaNumeric(ch:char):boolean;
  37.  
  38. function StrNoformat(var txtstr:string):boolean;
  39. function StrRedisplay(var txtstr:string):boolean;
  40.  
  41.  
  42. IMPLEMENTATION
  43.